home *** CD-ROM | disk | FTP | other *** search
/ Macademic for Students & Teachers / Macademic for Students and Teachers (Quantum Leap)(1992).iso / Fun & Games / CoreWar / worm < prev   
Encoding:
Text File  |  1985-05-18  |  534 b   |  24 lines  |  [FGHT/CWAR]
  1. *
  2. * create the creeping unstoppable worm.
  3. *
  4. * The worm is a consecutive array of imps.
  5. * Each imp is a separate process, and they
  6. * are running in consecutive locations.  
  7. *
  8. * no frontal assault of any kind can destroy
  9. * a worm.   It is self repairing.  The only
  10. * effective attack against a worm is to 
  11. * destroy is from left to right.
  12. *
  13.  
  14. @-1
  15. length  dat 5
  16.         spl extrude
  17.         djz 2,length
  18.         jmp -1
  19.         mov #0,extrude ;Stop making the worm
  20. *
  21. extrude spl 0     ;spin here and make a worm
  22.         mov 0,1   ;of imps
  23.  
  24.